(cond-expand
 (modules (import (only (chibi test) test-begin test-assert test test-end)))
 (else #f))

(import (scheme base))
(import (my-scheme time))

(test-begin "(my-scheme time)")

(test-assert (procedure? current-second))
(test-assert (= 1 (length (call-with-values current-second list))))
(test-assert (inexact? (current-second)))
(test-assert (real? (current-second)))

(test-end "(my-scheme time)")
